home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / assembly / abakus.lha / Abakus / Demos / MakeAssign.a < prev    next >
Text File  |  1995-06-27  |  1KB  |  79 lines
  1.  
  2.           module
  3.  
  4.           Input stdin
  5.           Output stdout
  6.           raw
  7.  
  8.           GetCurrentDirName [#puff,#100]
  9.           AssignLate [#Abakus,#puff]
  10.           Execute #assi #0 #0
  11.           Write stdout [#jn #len4]
  12. warten
  13.           Waits warten
  14.           ReadsChar #x
  15.  
  16.           Select.b x
  17.             case.b #13 goto ja
  18.             case.b #"j" goto ja
  19.             case.b #"J" goto ja
  20. aus
  21.           Return
  22.  
  23. ja
  24.            Write stdout [#ok #len5]
  25.  
  26.           Open #us #1005 [usad]
  27.            error aus
  28.  
  29.            Seek usad #0 #1
  30.            Write usad [#begABK #len1]
  31.            Write usad [#assi1 #len6]
  32.  
  33.           ;Write0 usad #puff
  34.            lea puff,a3
  35.  
  36.            Repeat [a]
  37.               Write usad [a3 #1]
  38.               inc.l a3
  39.            Until.b [a] (a3) = #0
  40.  
  41.            Write usad [#lf #1]
  42.            Write usad [#assi #len2-1]
  43.            Write usad [#endABK #len3]
  44.  
  45.           Close usad
  46.           Return
  47.  
  48.  
  49. Abakus    dc.b "Abakus",0
  50.  
  51.  
  52. begABK    dc.b 10,";Beginn Abakus",10
  53. len1      equ *-begABK
  54.  
  55. puff      ds.b 100
  56.  
  57. endABK    dc.b 10,";End Abakus",10
  58. len3      equ *-endABK
  59.  
  60. assi1     dc.b "Assign Abakus: "
  61. len6      equ *-assi1
  62.  
  63. assi      dc.b "c:Assign c: Abakus:c add",0
  64. len2      equ *-assi
  65.  
  66. ok        dc.b "Assign wird angehängt.",10
  67. len5      equ *-ok
  68.  
  69. jn        dc.b "Assign in User-Startup einfügen (J/n) ? ",0
  70. len4      equ *-jn
  71. us        dc.b "s:user-startup",0
  72.  
  73. x         ds.b 2
  74.  
  75. lf        dc.b 10
  76.  
  77.           cnop 0,4
  78. usad      ds.l 1
  79.